home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 October / CD [BM9510].bin / basic / toukou / f_basic / daru.bas next >
Encoding:
BASIC Source File  |  1995-07-12  |  7.9 KB  |  150 lines
  1. 10 '********** READ DATA
  2. 20 SCREEN@0:CLS:PLAY OFF:RU=1:LE=5
  3. 30 DIM A%(63),B%(63),C%(63),D%(63),E%(63),M$(7,12),MP(16,14)
  4. 40 FOR Y=0 TO 15:READ A$:FOR X=0 TO 15:A=VAL("&H"+MID$(A$,X+1,1))
  5. 50 PSET(X,Y),A:COLOR=(2,1):PSET(X+100,Y),A:COLOR=(2,2):NEXT X,Y
  6. 60 GET@A(0,0)-(15,15),A%:GET@A(100,0)-(115,15),B%
  7. 70 FOR Y=0 TO 15:READ A$:FOR X=0 TO 15:A=VAL("&H"+MID$(A$,X+1,1))
  8. 80 PSET(X,Y),A:COLOR=(1,2):COLOR=(5,6)
  9. 90 PSET(X+100,Y),A:COLOR=(1,1):COLOR=(5,5):NEXT X,Y
  10. 100 GET@A(0,0)-(15,15),C%:GET@A(100,0)-(115,15),D%
  11. 110 FOR Y=0 TO 15:READ A$:FOR X=0 TO 15:A=VAL("&H"+MID$(A$,X+1,1))
  12. 120 PSET(X,Y),A:NEXT X,Y:GET@A(0,0)-(15,15),E%
  13. 130 FOR Y=0 TO 12:FOR X=0 TO 3:READ M$(X,Y):NEXT X,Y
  14. 140 FOR Y=0 TO 12:FOR X=4 TO 7:READ M$(X,Y):NEXT X,Y:CLS
  15. 150 '********** └▓─┘ & ╢▐╥▌ ╗╕╛▓
  16. 160 SYMBOL(150,100),"é¬é±é╬éΩü@é╛éΘé▄é±âY",2,5,5,0,,3
  17. 170 SYMBOL(300,180),"1995 (C)TERARIN SOFT",1,1,4,0,,2
  18. 180 SYMBOL(260,350),"PAD(A)--START",1,1,6,0,,3
  19. 190 IF PAD(1)=3 THEN RU=RU-1 ELSE IF PAD(1)=7 THEN RU=RU+1
  20. 200 IF RU<1 THEN RU=8 ELSE IF RU>8 THEN RU=1 
  21. 210 FOR I=0 TO 500:NEXT I:LOCATE 35,21:PRINT "ROUND";RU
  22. 220 IF PTRIG(1)=1 THEN 230 ELSE 190
  23. 230 PLAY"T140V15@108O5L16EDEGEGABA8.GR8A8"
  24. 240 CLS:FOR Y=0 TO 14:FOR X=0 TO 16:MP(X,Y)=1
  25. 250 PUT@A(X*32,Y*32)-(X*32+15,Y*32+15),C%,PSET,2,2:NEXT X,Y
  26. 260 FOR Y=1 TO 13:FOR X=1 TO 15:MP(X,Y)=VAL(MID$(M$(RU-1,Y-1),X,1))
  27. 270 ON MP(X,Y) GOSUB 980,990,1000,1010
  28. 280 IF MP(X,Y)=0 THEN  GOSUB 970
  29. 290 NEXT X,Y:SYMBOL(550,30),"é¬é±é╬éΩ",1,2,6,0
  30. 300 SYMBOL(555,65),"é╛éΘé▄é±âY",1,2,4,0:COLOR 2
  31. 310 LOCATE 70,10:PRINT "ROUND";RU:COLOR 6
  32. 320 LOCATE 70,12:PRINT  "LEFT";LE:COLOR 7
  33. 330 '********** ╥▓▌
  34. 340 X1=1:Y1=1:X2=15:Y2=1:A1=0:B1=0:A2=0:B2=0:KY=0
  35. 350 ON PAD(1) GOSUB 910,900,920,900,930,900,940,900
  36. 360 IF PAD(1)=0 THEN  GOSUB 900
  37. 370 IF PTRIG(1)=4 THEN GOSUB 670 
  38. 380 ON MP(X1+A1,Y1+B1) GOSUB 450,450,470,450
  39. 390 ON MP(X2+A2,Y2+B2) GOSUB 460,530,460,460
  40. 400 X1=X1+A1:Y1=Y1+B1:X2=X2+A2:Y2=Y2+B2
  41. 410 PUT@A(X1*32,Y1*32)-(X1*32+15,Y1*32+15),A%,PSET,2,2
  42. 420 PUT@A(X2*32,Y2*32)-(X2*32+15,Y2*32+15),B%,PSET,2,2
  43. 430 FOR I=0 TO 300:NEXT I:GOTO 350
  44. 440 '********** ▒└╪ ╩▌├▓
  45. 450 A1= 0:B1= 0:RETURN
  46. 460 A2= 0:B2= 0:RETURN
  47. 470 X3=X1+A1:Y3=Y1+B1:IF MP(X3+A1,Y3+B1)=4 THEN GOTO 590
  48. 480 IF MP(X3+A1,Y3+B1)>0 THEN A1=0:B1=0:RETURN
  49. 490 IF X3+A1=X2 AND Y3+B1=Y2 THEN A1=0:B1=0:RETURN
  50. 500 MP(X3,Y3)=0:LINE (X3*32,Y3*32)-(X3*32+31,Y3*32+31),PSET,0,BF
  51. 510 X3=X3+A1:Y3=Y3+B1:MP(X3,Y3)=3:PLAY "T150V15@22O4C64"
  52. 520 PUT@A(X3*32,Y3*32)-(X3*32+15,Y3*32+15),E%,PSET,2,2:RETURN
  53. 530 X4=X2+A2:Y4=Y2+B2:IF MP(X4+A2,Y4+B2)>0 THEN A2=0:B2=0:RETURN
  54. 540 IF X4+A2=X1+A1 AND Y4+B2=Y1+B1 THEN A2=0:B2=0:RETURN
  55. 550 MP(X4,Y4)=0:LINE (X4*32,Y4*32)-(X4*32+31,Y4*32+31),PSET,0,BF
  56. 560 X4=X4+A2:Y4=Y4+B2:MP(X4,Y4)=2:PLAY,"T150V15@22O3C64"
  57. 570 PUT@A(X4*32,Y4*32)-(X4*32+15,Y4*32+15),D%,PSET,2,2:RETURN
  58. 580 '********** ╫│▌─▐╕╪▒
  59. 590 PLAY,,"T150V15@63Q3C32":KY=KY+1:IF KY=5 THEN 610
  60. 600 MP(X3,Y3)=0:RETURN
  61. 610 PLAY"T140V15@108O5L16EDEGEGABA8.GR8A8"
  62. 620 LINE(32,32)-(511,447),PSET,0,BF
  63. 630 SYMBOL(96,150),"éqénétémécü@ébékédé`éq",2,5,6,0
  64. 640 IF PTRIG(1)>0 THEN 650 ELSE 640
  65. 650 RU=RU+1:LE=LE+1:IF RU=9 THEN 800 ELSE RETURN 240
  66. 660 '********** ╖▐╠▐▒»╠▀& ╣▐░╤ ╡░╩▐░
  67. 670 LOCATE 68,15:PRINT "╖▐╠▐▒»╠▀:A":LOCATE 68,17:PRINT "╖¼▌╛┘   :B"
  68. 680 IF PTRIG(1)=1 THEN 710 ELSE IF PTRIG(1)=2 THEN 690 ELSE 680 
  69. 690 LOCATE 68,15:PRINT "          ":LOCATE 68,17:PRINT "          "
  70. 700 RETURN
  71. 710 PLAY"T150V15O3@22C2."
  72. 720 LE=LE-1:IF LE=0 THEN 750 ELSE 730
  73. 730 LOCATE 68,15:PRINT "          ":LOCATE 68,17:PRINT "          "
  74. 740 RETURN 260
  75. 750 PLAY"T140V15O2@96F8&F1","T140V15O2@96E+8&E+1"
  76. 760 LINE(32,32)-(511,447),PSET,0,BF
  77. 770 SYMBOL(64,150),"éfé`élédü@énéuédéq",3,5,2,0
  78. 780 IF PTRIG(1)>0 THEN CLS:LE=5:RETURN 160 ELSE 780
  79. 790 '********** ┤▌├▐¿▌╕▐
  80. 800 CLS:FOR Y=7 TO 14:FOR X=9 TO 10:GOSUB 980:NEXT X,Y
  81. 810 X1=18:Y1=14:X2=20:Y2=14:FOR I=1 TO 14
  82. 820 PUT@A(X1*16,Y1*16)-(X1*16+15,Y1*16+15),A%,PSET,I,I
  83. 830 PUT@A(X2*16,Y2*16)-(X2*16+15,Y2*16+15),B%,PSET,I,I
  84. 840 X1=X1-1:Y1=Y1-1:Y2=Y2-1:FOR J=0 TO 500:NEXT J,I
  85. 850 LINE(0,0)-(639,479),PSET,2,BF:PLAY"T100V15O4@67C1":CLS
  86. 860 FOR I=0 TO 7:SYMBOL(140,80),"ÆEÅoɼî≈üIüI",4,3,I,0,,3
  87. 870 SYMBOL(130,250),"You are all round clear",2,2,I,0,,3:NEXT I
  88. 880 PLAY"T140V15@108O4L16EDEGEGABA8.GR8A8":FOR I=0 TO 30000:NEXT I:RUN
  89. 890 '********** ╗╠▐┘░┴▌
  90. 900 A1= 0:B1= 0:A2= 0:B2= 0:RETURN
  91. 910 A1= 0:B1=-1:A2= 0:B2= 1:GOSUB 950:RETURN
  92. 920 A1= 1:B1= 0:A2=-1:B2= 0:GOSUB 950:RETURN
  93. 930 A1= 0:B1= 1:A2= 0:B2=-1:GOSUB 950:RETURN
  94. 940 A1=-1:B1= 0:A2= 1:B2= 0:GOSUB 950:RETURN
  95. 950 LINE (X1*32,Y1*32)-(X1*32+31,Y1*32+31),PSET,0,BF
  96. 960 LINE (X2*32,Y2*32)-(X2*32+31,Y2*32+31),PSET,0,BF:RETURN
  97. 970 LINE (X*32,Y*32)-(X*32+31,Y*32+31),PSET,0,BF  :RETURN
  98. 980 PUT@A(X*32,Y*32)-(X*32+15,Y*32+15),C%,PSET,2,2:RETURN
  99. 990 PUT@A(X*32,Y*32)-(X*32+15,Y*32+15),D%,PSET,2,2:RETURN
  100. 1000 PUT@A(X*32,Y*32)-(X*32+15,Y*32+15),E%,PSET,2,2:RETURN
  101. 1010 LINE (X*32,Y*32)-(X*32+31,Y*32+31),PSET,2,BF  :RETURN
  102. 1020 '********** ╖¼╫ DATA
  103. 1030 DATA 0000222222220000,0022777777772200,0022770770772200
  104. 1040 DATA 0022770770772200,0227777777777220,0222222222222220
  105. 1050 DATA 0266666226666620,2262622222262622,2222255522222222
  106. 1060 DATA 2222252255222222,0222252222552220,0262252255222620
  107. 1070 DATA 0266255522226620,0026626226266200,0002266226622000
  108. 1080 DATA 0000222222220000
  109. 1090 DATA 5555551005555555,5555551005555555,5555551005555555
  110. 1100 DATA 5555551005555555,5555551005555555,5555551005555555
  111. 1110 DATA 1111111001111111,0000000000000000,0555555555555510
  112. 1120 DATA 0555555555555510,0555555555555510,0555555555555510
  113. 1130 DATA 0555555555555510,0555555555555510,0111111111111110
  114. 1140 DATA 0000000000000000
  115. 1150 DATA 0000000000000000,0000007777000000,0000776666770000
  116. 1160 DATA 0000776006770000,0000077667700000,0000007667000000
  117. 1170 DATA 0000007667000000,0000007667000000,0000007667000000
  118. 1180 DATA 0000007667000000,0000007667770000,0000007666670000
  119. 1190 DATA 0000007667770000,0000007667000000,0000000770000000
  120. 1200 DATA 0000000000000000
  121. 1210 '*** ----ROUND 1---- ----ROUND 2---- ----ROUND 3---- ----ROUND 4----
  122. 1220 DATA 000000000000000,000000000000000,020000010000000,000000000000000
  123. 1230 DATA 001111111100000,021111141111120,020000010000030,011111111111110
  124. 1240 DATA 001000000000000,000000020000000,100000010000001,010002000200010
  125. 1250 DATA 001111110000000,021111131111120,000111111111000,010302000203010
  126. 1260 DATA 001000000000000,000000020000000,000000000000030,010002000200010
  127. 1270 DATA 000000000000000,021111131111120,000000030000000,010111020111010
  128. 1280 DATA 000000110000110,000000020000000,222222222222222,010000242000010
  129. 1290 DATA 003000101001010,021111131111120,000000000000000,010111020111010
  130. 1300 DATA 000000100110010,000000020000000,010000010000010,010002000200010
  131. 1310 DATA 003000100000010,021111131111120,000000232000222,010302000203010
  132. 1320 DATA 000000030000000,000000020000000,111200020002000,010002000200010
  133. 1330 DATA 003002020200300,021111131111120,003000010002000,011111131111110
  134. 1340 DATA 000002040200000,000000020000000,000000020002004,000000000000000
  135. 1350 '*** ----ROUND 5---- ----ROUND 6---- ----ROUND 7---- ----ROUND 8----
  136. 1360 DATA 000000000000000,000000000000000,000000010000000,000020020202020
  137. 1370 DATA 222222222222222,121212121212121,410000310000030,000320002020202
  138. 1380 DATA 030000212000030,003000000000300,010000010202020,030020020202020
  139. 1390 DATA 000000000000000,001000000000000,012222212020202,222220002020202
  140. 1400 DATA 000002222200000,001222222222220,010000010202020,000000021212121
  141. 1410 DATA 000020111020000,001000000000000,010000012020202,001000111000000
  142. 1420 DATA 010020143020010,001000000000000,012222210202020,031000030000000
  143. 1430 DATA 000020111020000,001000000000300,010000012020202,001000030000000
  144. 1440 DATA 000002222200000,000331111111222,010000000002000,111111121111111
  145. 1450 DATA 021100000001120,000000000000000,311111130002000,000000000000000
  146. 1460 DATA 030000020000030,111111222222222,000000000002000,002020202020200
  147. 1470 DATA 222222222222222,000000000000000,011111100002030,010101010101010
  148. 1480 DATA 000000000000000,400000000000000,020000002020202,000000000000004
  149. 1490 '********** 1995.7 By TERARIN SOFT 
  150.